From: Richard M. Stallman Date: Sun, 22 May 1994 20:56:11 +0000 (+0000) Subject: (mouse-split-window-vertically): Treat scroll bar events just like others. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91425 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=85d6b80b26ff80a3df4d0a44d282f73872f5c16e;p=emacs.git (mouse-split-window-vertically): Treat scroll bar events just like others. --- diff --git a/lisp/mouse.el b/lisp/mouse.el index 2cceabab2f7..052d6ec01ba 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -89,10 +89,7 @@ This command must be bound to a mouse click." (mouse-minibuffer-check click) (let ((start (event-start click))) (select-window (posn-window start)) - (let ((new-height (if (eq (posn-point start) 'vertical-scroll-bar) - (scroll-bar-scale (posn-col-row start) - (1- (window-height))) - (1+ (cdr (posn-col-row (event-end click)))))) + (let ((new-height (1+ (cdr (posn-col-row (event-end click))))) (first-line window-min-height) (last-line (- (window-height) window-min-height))) (if (< last-line first-line)